home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / WWW / http / www.wirenet.co.uk / files / thor25_arexx.lha / FSE / Quote.fse < prev    next >
Text File  |  1995-09-06  |  281b  |  21 lines
  1. /* qoute.fse - qoutes all except empty lines */
  2.  
  3. options results
  4. qoutechar = ">"
  5.  
  6. YPOS
  7. currline = result
  8. XPOS
  9. currcolumn = result
  10. MSGLENGTH
  11. lastline = result
  12.  
  13. do i=1 to lastline
  14.   SETPOS 1 i
  15.   GETLINE
  16.   if(result ~= " ") then INSERTINPUT qoutechar
  17. end
  18.  
  19. SETPOS currcolumn currline
  20.  
  21.